home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / MarkzScout™ 14-day trial / Scripts / JPEG Quality.M1S < prev    next >
Encoding:
Text File  |  1999-04-03  |  341 b   |  23 lines  |  [TEXT/MSCT]
  1. //
  2. // JPEG Quality.M1S
  3. //
  4. // Report compression quality for JPEG images
  5. //
  6. proc ProcessFile
  7.  
  8.   print it.name;
  9.  
  10.   if it is JPEG then
  11.     print " Quality = " + it.JPEG_QUALITY
  12.   else
  13.     print " is not a JPEG image"
  14.   endif
  15.  
  16.   print "--------------------------------------"
  17.  
  18. end proc
  19.  
  20. theJob = it
  21.  
  22. on file do ProcessFile
  23. scan theJob links uses